home *** CD-ROM | disk | FTP | other *** search
/ Small Time Crooks Press Kit / Small Time Crooks Press Kit.iso / pc / Small Time Crooks.dxr / Scripts_6_Menu Help Frame Script.ls < prev    next >
Encoding:
Text File  |  2000-04-30  |  1.0 KB  |  41 lines
  1. property pHowLongToWait, pStartTime
  2. global gInitialMenuHelpOn
  3.  
  4. on beginSprite me
  5.   if gInitialMenuHelpOn then
  6.     set pStartTime to the timer
  7.   end if
  8. end
  9.  
  10. on exitFrame
  11.   if gInitialMenuHelpOn then
  12.     if the timer > (pStartTime + (pHowLongToWait * 60)) then
  13.       set gInitialMenuHelpOn to 0
  14.       go(#next)
  15.     else
  16.       go(the frame)
  17.     end if
  18.   else
  19.     go(#loop)
  20.   end if
  21. end
  22.  
  23. on getPropertyDescriptionList me
  24.   set description to [:]
  25.   addProp(description, #pHowLongToWait, [#default: "15", #format: #integer, #comment: "How Long to Wait in Seconds"])
  26.   return description
  27. end
  28.  
  29. on getBehaviorDescription me
  30.   set endChar to offset("--END OF HEADER", the text of me)
  31.   set endLine to the number of lines in char 1 to endChar of the text of me - 1
  32.   set description to line 1 to endLine of the text of me
  33.   repeat with whichLine = endLine down to 1
  34.     if line whichLine of description = EMPTY then
  35.       delete line whichLine of description
  36.     end if
  37.   end repeat
  38.   delete line 1 of description
  39.   return description
  40. end
  41.